home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / graphsInSpace / variableGrid.wwModel / model.eve
Encoding:
Text File  |  1995-04-23  |  669 b   |  32 lines
  1.  
  2. #we want a patch where positive X is ascending time, and have 
  3.  
  4. set grid(width) 8
  5. set grid(depth) 3
  6. set text(color) "1 1 1"
  7. set text(fontName) Helvetica
  8. set text(size) 18
  9.  
  10. proc drawGrid {w d f s c} {
  11.  
  12.   Surface paintedplastic texturename grid.tx
  13.   Patch bilinear P "0 0 0  \
  14.                     0 0 $d \
  15.                     $w 0 0 \
  16.                     $w 0 $d"
  17.   Surface constant
  18.   Color $c
  19.   for {set i 0} {$i <= $w} {incr i} \
  20.   {  WW3DText $f $s $i;
  21.      Translate 1 0 0; 
  22.   }
  23. }
  24.  
  25. loadControlPanel controls.nib
  26.  
  27. startShape World
  28.   startShape Grid
  29.     animatable: {drawGrid $grid(width) $grid(depth) $text(fontName) $text(size) "$text(color)"}
  30.   endShape  
  31. endShape
  32.